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When the directory occupies more than one track, all the cHrecicry 
tracks appended together form the directory. 

K A. DIREC 

D^REC is a core resident table which contains information about the 
disc directory, it hss the following structure: 

-length in words of first directory track 

\-h sanie as first k words of first directory track 

5 unused 

6 disc address of first directory track 
7-13 same as 0-6 but applied to 2nd directory track 
1^-20 same as 0-6 but applied to 3rd directory track 

21-27 same as 0-6 but applied to Ath directory track 




A disc address of implies ti^at there is no such directory track. 
When word Is 0, words 1-^ are meaningless. 



The disc address of a directory is always sector of a track. Each 
directory track may contain as many as 5^^0 words = 85 sectors == 68O directory 
entries. Directory tracks are allocated as follows: 

a.) When the system Is initially loaded, or when it is loaded from mag. tape, 

the number of directory tracks allocated is the maximum of the original 

number of tracks and the number of discs; 

b.) When the DISC command is used to add a disc, a new directory track is 

allocated unless this would cause there to be more directory tracks than 
discs. 



II. 10 TABLE 




The ID table (IDT) is a disc resident table v/hich contains one 8-v/ord 
entry for each ID code on the system. The entries are kept sorted according 
to the ID codes. An entry has the following format: 
V/ORO user id 

(filled with 0's if fewer than 6 characters 
(i;i minutes) 
(in minutes) 
(in sectors) 
(in sectors) 

Words ^-y are 16 bit quantities with values between and 6553i>- The 
following 2 words In core refer to the IDT: 
IDLOC « disc address of IDT. 
lOLEN « length In words of IDT. 



-3 


passvyord 


h 


t i me all owed 


5 


time used 


6 


disc al lowed 


7 


disc used 






Ml. AVAILABLE DISC TABLE 

The avniloblc disc Inblc (ADT) is a disc resident loblc which tontalfis 
one two-word entry for each area of the disc which ?s unallocnied. An entry 
has the following form: 

WORD disc address 

I length of area in sectors 

Entries are sorted according to word 0. Each entry may refer to as 
much as one full track, and no two consecutive entries ever refer to two adjacent 
disc areas (two tracks are not considered to be adjacent). 

Besides the entries for unallocated areas, there is also one ADT entry for 
each of the five tracks on which the system itself resides, and for each of the 
sixteen tracks allocated for user swapping. Word 1 of each of these entries 
Is so that they will never be allocated. The purpose of having these entries 
is to indicate to the system dump that they may be released at that time, and 
also to indicate to the LOCK and UNLOCK routines that these tracks have special 
significance. 

At the end of the ADT is one additional entry having the form: 

177777 

1 

Since track is always allocated as a system track, any possible disc 
address is guaranteed to be bounded by two ADT entries. 
The following two memory locations refer to the ADT: 

ADLOC « disc address of ADT 

ADLEN = -length in words of ADT 

The IDT and ADT always reside on the same track. The IDT is at the 
beginning of t!ie track (sector 0), and the ADT begins at the first sector that 
Is unused by the IDT. 




IV. FUSS 



The FUSS table is a 128 word table which resides on the disc. Its 
disc address can be obtained by the instruction 

LDA FUSS, I 

FUSS is divided into 16 sections of 8 words each. The 8 words in each 

section are the disc addresses of the user files curreiitly being accessed 

by the user corresponding to that table. Addresses of indicate no file. 

Disc addresses witii bit 7=1 Indicate that; the user has reod onlv access 
The purpose of maintaining this taDle is to ^ Jisy dccei>s. 



1) prevent simultaneous write access by tv/o users to one file; 
2.) prevent KiLLing a file when some user has access to it. 




A user's FUSS (i.e. his area of the FUSS table) is set by the FILES 
routine, which is called from BASICT at the beginning of exociition of a 
program containing a FILES statement. It is cleared by BYE .HCLLO^KI LLID, 
and sometimes by KILL. 



V. COMTABLE 



The COMTABLE is a list of all user and system commands containing 
their ASCII codings and disc locations or core addresses. The structure 
of the COMTABLE is as follows: 



COM I 



COM2 



COM3 



COM^ 



C0M5 



C0M6 



codes for commands which are 
executed immediately by the 
system 

codes for commands which are 

executed by 

BASIC 

user commands which are 
executed by disc resident 
programs 

system commands - - all are 
executed by disc resident 
programs 

starting addresses for those 
commands which are listed 
under COMl and COM2 

disc addresses for those 
commands which are iistcd 
under COM3 and COM^ 



(this section Is filled 
by the loader) 



Since each command is recognized only by its first 3 letters, the 
scanner converts each letter into a number from to 31o, and then packs 
the three codes into one word as three 5-blt bytes. In addition, bit 15 
is set for system commands. Codes of - 1 In sections 2, 3, and h do not 
correspond to any possible 3~letter code. Their purpose is to generate 
room in C0M6 for disc addresses of routines that are called indirectly, or 
for tables like FUSS. In the case of CTAPR, the purpose is to generate a 
status type for printing compiler tape errors without a direct command from 
the user. 



VI: LOGGR 



LOGGR is a 32-v/ord queue which contains codes for printing 
LOGON/OFF messages. Entries are placed on the queue by HELLOpBYE,, and 
SLEEP. Each entry consists of 2 words, with the following formats 

V/ORD 0: User id (BIT 15=0 for ON, I for OFF) 
): bits 15-^ « 60 X hrs ■»• mins 
bits 3"0 « terminal number 



8 



The representat iorr of a user Id is as foUows: 

BITS 1^-10 = letter (A = 1, B - 2, ..., 2 ^ 32^) 
BITS 9-0 = number (0-999) 

The following variables are relevant: 

LOGCT = # of unprocessed entries in LOGGR 

LOGPl - points to word 1 of last processed entry 

L0GP2 = points to word 1 of last unprocessed entry 

Note that LOGCT = s:)^^ LOGPl =L0GP2 



VII TELETYPE TABLES 

This set of 16 tables, one for ench user, contnins relevant information 
about the various terminals. The structure of the tables is as follows: 



WORD 


BTIM 


1 


CHAR 


2 


BCNT 


3 


MASK 


k 


CCNT 


5 


BPNT 


6 


BSTR 


7 


BHEO 


8 


BGIN 


9 


BEND 


10 


LADR 


11 


DISC 


12 


PROG 


13 


ID 


lV-16 


NAME 


17 


PHON 


18-19 


TIME 


20 


ABCN 


21 


CLOC 


22 


RSTR 


23 


STAT 


2h 


LINK 


25 


PLEV 



BTIM, CHAR, BCNT, CCNT, BPNT, BSTR, BHED, BGIN, and BEND are used for 
I/O and buffer control. BTIM is used by the MPX driver to count interrupts 
between bits. BCNT is used to count bits within a character, CHAR is used 
to pack input bits or unpack output bits. The use of the other 5 terns varies 




depending upon wlicthcr input or output is being performed. 

During input, the ui.cr's buffer acts as a character queue. BHED points 
to the first character of the first unprocessed input line, i.e. the head 
of the queue. BSTR points to the first character of the current input line. 
BSTR = BMED except when the user is in TAPE mode, and there exists the 
possibility of multiple input lines. At the end of each line of input, 
BSTR is set to point just beyond the line. After a line is processed^by 
either BASIC or by the system, it advances BHED beyond the line just processed, 
If it remains unequal to BSTR, a second line must be processed. BPUT points 
to the tail of the queue, i.e., the location into which the next character 
Is to be deposited. BGIN and BEND are fixed pointers wiiich give the first 
character of the physical buffer and the first character beyond the physical 
buffer, respectively. Note that character pointers have the form: 



BITS 15-1: WORD ADDRESS 

BIT : for left character. 1 for right character 




During output, the buffer again acts as a character queue, but lines 
have no significance. CCNT - -number of characters to be transmitted. 
Including the current one, BPNT points to the character currently being 
transmitted, and BSTR to the location Into which the next output character 
win be deposited. 

The remainder of the words in the table are defined as follows: 



LADR 
DISC 
PROG 



ID: 
NAME : 

PHON: 



a Pointer to the user's LAODR entry 

disc address of user's swap area 

when user is on the disc, PROG points to the last core 

location used by the program. When the user is loaded 

into core, PROG is placed into PBPTR. V/hen he is viritten 

back to disc, PBPTR Is copied into PROG. BASIC Is 

required to maintain PBPTR as a bound on the core it is using. 

user's Id, If none 

a three word entry containing the user's program name. It is 
set by the routines NAME & GET, and cleared by HELLO. When 
fewer than 6 characters are in the name, blanks are appended. 

when the system telephone routine Is timing the user for 
various, things, PHON is set to the value of DATIH4-1 necessary 
to achieve timeout. > 




TIME: the value of DATIM (O : )) when the user logged on. 

ABCN: this is used by the abort chccUer In the MPX driver to count 
the length of a BREAK. When the abort checker senses a 
Input bit that may be the start of a BREAK, it sets ABCN 
«= -100. I f the bits continue for 100 consecutive hPX tim e 
p eriods ("-'^iWi ms^^ then the BREAK key has been pressed . 

CLOC: this is the timeout clock used to detennine the length of a 
user's time slice. See the discussion on scheduling for 
further information. 

RSTR: this is set, when a user is placed on the queue, to his 
starting address in core, \7hen the user is actually 
initiated, RSTR is set to 0. Whenever RSTR = 0, the transfer 
address of the user can be found in location PREG. 

STAT: indicates user's status. The user's status is as follows: 

-2, system disconnect 

-1, user abort request 

0, Idle 

1 , system abort 

2, input wait 

3, output wait 

hf syntax processing 
>^, command processing 



When a command is being processed, STAT indicates the command. 
values are assigned In order of entries in the COMTABLE, so that 

RUN = 5 

LIST = 6 

PUNCH = 7, etc. 



STAT 




LINK: the LINK words in the tables are used to form a queue of active 
users. All users v/hose status i s 2: ^ are in the queue. See the discussion 
on scheduling for furtiicr information. 

PLEV: this word gives the priority level of the user when he i s on 
the queue. When the user's status is set to 2 or 3, the previous 
value of STAT is copied into PLEV, and tlie user removed from the 
queue. The possible values of PLEV are as follows: 




highest priority, used for syntox, users returning from 
I/O suspend, and for disc resident roulii.cs once they begin 



]: used for commands RUN,LIST,PUNCII 



2: used- for disc resident routines until tl.^'y reach the top 
of the queue 



k: used for long running programs 



Associated with each I tern in these tables is a synihol v;hich is EQUated 
to the corresponding number of the Item. For example: 

7BTIM EQU 
7CHAR EQU 1 




7PLEV EQU 25 

These symbols are primarily used for adjusting polniers to the table. For 
example, If the B register contains a pointer to the LINK entry of some user, 
the Instruction 

ADB .+? ID " ? LINK 
wl 1 1 point B to his. ID entry . f 



Is a symbol located in base page at the entry of a loblc of constants from 
-26 to 4- ^i9. A word containing the value N, where -26<« .Nj^^D can be referenced 
by .+N. 



CORE MAP 



100 



200 



USER 

Li BUS 
« USER + k 



I 5^^0 
£ I^OOOB 
lAOOOB 



LIBRA 
37300B 
I 

37700B 



INTERRUPT LINKAGE AND 
UNITIALIZED SYSTEM 
VARIABLES; ALSO LOCATION OF i 
BOOTSTRAP LOADER \ 



EQUIPMENT TABLE 
(DIREC, IDLOC, ETC.) 



CONSTANTS AND SYSTEM 
VARIABLES 



REGISTERS SAVED BY CLOCK 



UNUSED 



BASIC 
PROCESSOR 



I/O DRIVERS 



EXECUTIVE 



SYSTEM LIBRARY PROGRAMS 
SWAP AREA (256 V/ORDS) 



PROTECTED LOADER 



> 



USER 
'SWAP 
AREA 
(5^^0 WORDS) 



SYSTEM 
LIBRARY 
WORK AREA 
iS^kO WORDS) 



J 




EQUtPMENT TABLE 

The equipment table Is the area of core which describes the resources ovnllablc 
to the system. It resides at locations 100-166, as follows: 



100-133 


OIREC 


m 


. IDLOC 


135 


IDLEN 


136 


: ADLOC 


137 


ADLEN 



(discussed elsewhere) 

M 



1*10-157 




TRAX - this is a table of which disc tracks are physically 

available to the system. Locations 1^0-1^43 correspond 
to disc 0, 1^^-1^7 to disc 1, etc. Track of disc 
Is represented by bit of lAO, track 1 of disc is 
represented by bit 1 of 1^0, etc. A bit is v^hen the 
track Is available, 1 when unavailable. 

When a system Is Initialized, all tracks of disc are 
' made available, all others unavailable. The TRAX table 
is changed only by the follov/Ing commands: 



DISC - causes all tracks of the specified disc to be made available 
LOCK - all specified tracks are made unavailable. 



UNLOCK - all specified tracks are made available. 



160-163 



?TBL - there is one word In this area for each of the four discs. Whe 
the word Is zero, the particular disc does not exist, Othen/is 
bits 15:8 contain the number of sectors / track, bits 7:6 the 
disc prefix, and bits 5:0 the high priority select code. The 
prefix Is used by the disc driver as the high order 2 bits o-f 
the 8-bit track address. 



16*j: MAGSC - high priority select code for mag. tape; If nonexistent, 

MAGSC =0. 



J65: 



PHSC - select code for autodisconnect board, if noncxislcnl, 
PHSC « 0. 



166: 



PHR - 10 X number of seconds allov^ed for user to log on; applicable 
only If PMSC:4=*0. 



DISC ORGANIZATION 

The disc available to the system consists of from 6'» lo 256 trocks, depending 
upon how many discs exist. Each track contains from 90 to 128 sectors of 6A v/ords 
each, for a total of 5760-8192 words per track. The loader assigns tracks as follows 



RESIDENT SYSTEM 

System library routines 

IDT and ADT 

User swap tracks 

Di rectory 



(3 tracks, including track 0) 
(2 tracks) 
(1 track) 
(16 tracks) 
(1-^ tracks) 



All remaining tracks are available for storage of user programs and files. 
The ADT contains an entry for each available area. 

The disc addresses of the individual system library routines are stored into 
the COMTABLE during loading. Although they are not all the same length, they are 
limited to 256 words, and so the system, reads in exactly 256 words whenever it 
wants to load such a routine. The loader never assigns a library routine within 
3 sectors of the end of a disc track, so that no errors can take place in doing this 

The IDT and ADT are stored on the same track, as describee! above. 

Each directory track is stored beginning at sector 0. 



User tracks are initialized to sector 0. The scheduler optimizes swappin g, 
however, by writing u ser swap areas back at the first possible s ector, but on th e 
same trac k. The SLEEP routine rewrites all user tracks bock to track origin (sector 
O) so that the system will function correctly when it is reloaded from disc. 



During running, each user track contains a copy of the ar("a from core location 
USER through the core location specified by its ?PROG entry. Thib includes 



^^ an variable data which is relevant to that user's program, and his program itself 
The location of various sections In his program is discussed elsewhere. 

Programs and files are each required to be stored as contiguous blocks of 
disc. Since the disc is allocated by sectors, each program may cause part of its 
last sector to be wasted. When a program is stored (by the SAVE routine), it is 
first decompiled and is stored in that form. Only the encoded text is stored, so 
that a program may require as little as 3 words of disc space. 

Files always occupy an integral number of sectors (1 -|28), each file 
occupying a contiguous area on the disc. BASIC does not treat the individual 
sectors in the same logical sequence as the physical sequence, but rather inter- 
leaves the sectors, as follov/s: 

even // of sectors 

Physical sequence: 1 2 3 ^ ... 2n-2 2n-l 2n 

Logical sequence: I n+1 2» n+2 ,,, 2n-l n 2n 



odd {} of sectors 

Physical sequence: 1 2 3 h ... 2n-2 2n-l 

Logical sequence: 1 n+1 2 n+2 ... 2n-l n 

This format tends to decrease disc seek time when sectors are accessed in a 
logically ascending order. 



SCHEDULING 

rThe basic philosophy of the TSB scheduling algorithm is to provide r.hort 
response times for short, interactive jobs at the possible cost of delays in 
longer running jobs. The implementation of this involves a queue of jobs to run 
which Is ordered according to a priority scheme .J The queue is a linked list of 
from 1 to l8 entries, each entry pointing to the next entry, and the last entry 
pointing back to the first. The 18 possible entries in the queue are the 16 user 
LINK entries, a LINK word in a truncated TELETYPE table reserved for the system 
consolex ^^^ «* queue head. The queue head consists of the locations HLINK (0:2), 
and is always in the queue. The queue head has a priority of 77777p, vyhich is 
stored in location MLINK+2, and so It is always the last entry in the queue. As 
an example of how this works, assume that users I, 3 and 6 are on the queue 
in that order and so is the system console, in a position between users 3 and 6. 
Then the queue will have the following appearance: 



TTY01+7 

7PLEV 

TTY03+7LINK 
7PLEV 

T35LK 

TTY06+7LINK 
7PLEV 

ML INK 




Since the MLINK entry is alwoys the last entry on the qucMje, HLINI(+) 
is a pointer to the first entry, which in this case is TTY01. In the cose of an 
empty queue, MLINK+1 will point to itself, i.e., CONTENTS (HL I UK+l ) = CONTENTS (ML I UK) . 
Each entry on the queue has a priority no greater in numerical value than that of 
the one it points to. When an entry is added to the queue, this ordering is alv/ays 
preserved by placing the new entry just ahead of the first entry with a larger 
priority number. Note that^ when the first entry in the queue has priority 0, it 
win remain at the head of the queue until it is removed from the queue entirely. 

The following rules are used to assign (and reassign) priorities: 

K Upon first entering the queue, jobs are assigned priorities as follows: 
SYNTAX lines and jobs returning from I/O suspend: 
BASIC commands (l^UN, LIST, PUNCH) : 1 

Commands for disc-resident routines (GET, BYE, etc): 2 

2. Priorities of jobs are reassigned^ in the follovnng way: 

Jobs of priority 2, when they reach the top of the queue, are reassigned 
priori ty 0. 

RUN jobSg v/hen they exceed their time slice, are re-assigned priority ^, 
and repositioned in the queue according to thai priority. Each RUfJ Job i s 
assigned a time slice of one secon d^ and if it exhausts that It is assigne d 
another . 

The scheduler always chooses to run the job on top of the queue, so that 
whenever a job is running, MLINK + 1 is pointing to its link word. The two locations 
MAIN and LIB are control variables which tell what is presently in core. MAIN 
refers to one of the 16 user programs. It is a pointer to WORD of the TTY table 
of the user program currently in core. If none is in core, MAIN =0. 

LIB points to the location in the COMTABLE of the disc address of the library 
routine in core. LIB = when none is present. 



The foUowing conditions must exist for the scheduler to permit cxecuiion 

A) for Syntax and BASIC commands: 

MAIN set to point to correct user table 

B) for disc resident commands: 
MAIN *= 

LIB set to correct disc resident routines. 



The Scheduler routine SWAPR is responsible for creating these conditions, and 
makes Its decisions according to the values of MAIN, LIB, and the entry on top of 
the queue. 



Communication Between System Hodulcs 



There are six system modules that communicnu? with each other in various ways: 
the disc driver, multiplexor (MPX) driver, system console driver, scheduler, BASIC, 
and system library routines (HEL|.0, BYE, KILLID, etc.). 



1 , Disc Driver. 

Any section of the system may call the disc driver to perform a disc transfer 
Three parameters are passed: 



disc address 



B « core address 



(bits 


(l5:Wi) 


bits 


(13:8 ) 


bit 


7 


bits 


(6:0 ) 


(bits 


(14:0 ) 


bit 


15 



disc nuirber 

track number 



sector number) 

core address 

1 for disc input 

for. di sc output) 



WORD ~ 'il of words to be transferred (may be 0, in v/hich case no actual transfer 
is performed) . 
Called by JSB DISC, I 

It is the responsibility of the caller to insure that the disc is not busy 
when the call tal<es place. This Is no hardship since while BASIC or a system library 
routine is running, no other module ever initiates disc transfers. As a result, the 
disc win appear to be busy only if the module itself has initiated the transfer. 



Upon initiation of a disc transfer, the varlal'le EU'DSK is set to 1, and it 
Is cleared upon completion. A complete transfer can be performed by: 

JSB DISC,1 
LDA ENDSK 
SZA 
JMP '•-2 




The system never suspends a progrom for o di sc irmnr. fer because the high 

^^^^_^^J|,__^___________.. III! Iiiiiw •- K i m IT iii ■- " '" n il , , ^ , _^ ~^-^-S^ ■ 

speed of the disc does not cause any great overhead. 



msfmrn a m m 



xmis f ii I w WB.sK B O ' j.mmh}! 'tsah 



The value of WORD is not modified by the driver. 




i I. Output to MPX 

Output to the MPX driver is performed on a character by character basis via 
the routine OUTCH. The calling sequence is as follows: 

A - character to be output (in bits (6:0); bits (15:7) may be anything) 

B = address of V/ORD of user's teletype table. 

JSB OUTCH,! 
The OUTCH routine places characters into the user's buffer until it is filled 
(99 characters), at which point the user is suspended by OUTCH. This is no 
problem for BASIC, but due to reentrancy problems must not be allowed by other 
modules. The buffer is always empty when a library routine is initiated, so they 
normally do not have to worry about it. 

After the user has typed a carriage return, the HPX driver does not perm ! t 
him to abort until one character is output . > Therefore, those routines which do 
not wish to be terminated do not output anything until they are willing to be. 
Each routine must output at least one character (usually a line feed) to allov^ the 
user to type again. 



Ml Input from MPX 

Input from a user teletype is allowed only when he is in idle or input stotus, 
or when he is entering a program tape. Upon completion of input (CR) , the MPX sets 
his MPCOM bit, and the scheduler, upon seeing the bit set, takes the appropriate 
action. BASIC can ask for input from a user terminal by performing 

JSB SCHIN,I 



Although no other routine ever does this, the only possible problems involved 
would be those of reentrancy. 




IV System Console Driver 

The system console driver maintains two flags, T35F] and T35F2, which 
determine Its status. The meanings of these flags are as follov/s; 

T35F1: « -1 during output, otherwise 

T35F2: Normally 0, It is set to -1 by the driver at the conclusion of input, 

and cleared to externally. The combined values of these is more significant: 



Fl 


F2 











-1 



-1 
-1 




driver is accepting input 

1) Input command received and being processed, or 

2) output terminated from a system command which Is to be 
reinitiated 

output ting 

outputting, at the end of which the current system command will 

be reinitiated. 



V/hen F2 = -1, the driver will not accept any input. This guarantees system 
library programs that they will not be Interfered with. These routines are 
responsible for clearing F2 when they call the driver for the last time. 



The calling sequence is: 

A: bit 15 = if CRLF is to be appended, bits (1^:0) = //of chars. 
B: Bit 15 = 1 if punching is to take place in addition to printing, 
bits (1^:0) = core address of output buffer. • 

JSB TTY35,l 
The driver uses the 36 word buffer T35BF as an input buffer. Most of the 

library routines use it for output, and occasionally for temporary storage between 

1 ines of output. 



V. Input and Termination Requests 

BASIC may obtain Input from a user console by performing the Instruction 

JSB SCHIN.I 

Upon return, the Input will be In the users buffer as indicated by the 
pointers 7BHED and 7BEN0. 

Either BASIC or a system library routine terminates by: 

JSB SCHEN.I 

It Is possible for BASIC to call a system library routine directly by 
execut i ng : 

JSB SCHLBJ 

DEF ^location in COMTABLE of disc address of program^ 

In the initial system, this is done only with the FILES routine. It Is 
necessary that the library routine cooperate with BASIC, i.e., not any program 
can be so called. 




SYSTEM LIBRARY ROITTIISIE.S 

FILES 

The FILES routine is used by BASIC to process a FILES statement in a 
user's progranto The function of the FILES routine is to translate the 
file names in the user's program into a table for use during execution^ 
This table contains a 7-word entry for each file. Its format is: 

lo physical length in sectors (BIT 15 = 1 if read only) 

2. disc address of last logical sector 

3o not set by FILES routine 

4. disc address of first sector 
5-7 o not set by FILES routine 

During operation of the FILES routine, the user's buffer is used as a 
table to store intermediate data,. Three words of the buffer are used 
for each file© The operation is as follov/ss 

lo Translate characters in FILES statement into the buffer 

tableo Filenames are extended to six characters, if necess- 
ary, and those which are specified to be public files are 
marked by setting Bit 15 of their first word to 1. Possible 
errors found in this step are: 
ao file name of or > 6 characters 
bo more than 8 files requested 
2o Perform directory search for each filco Change the last two 
words of its entry in the buffer tabic to the' disc address 
and length in sectors. The read-only bit is set if the file 
is a public file and the user is not AOOO. An error occurs 
if the file is nonexistent or protected. Update the date 
word in the directory entry for this file. 



3. Test to make sure that there is sufficient room in the 
user area for the file table o 

4. Scan the FUSS table to see if any other* user has v/rite 
capability on the files requested o Mark any such files 
as read-onlyo Copy the disc addresses of the requested 
files into the user's portion of FUSS, Indicate read- 
only files by marking bit 7 in FUSSo 

5o Build the table specified above o FILTB is a pointer to 
the beginning of the table. Upon exit, VALTB and PBPTR 
both point to the first word following the table* 




SAVE 

The SAVE routine is called by a user to save a progreim in the library., 

Its operation is as follows: 

1. Test for the existence of a program name and a non-null 

program. 
2o If the user's program is in compiled form (CFLAG bit = 1), 

call DCMPL to put it into the form in which we will save ito 
3. Test to see that the user has sufficient disc space allocated 
to save the program. The test to be satisfied is: 

(disc currently in use) + (length of program in sectors) 
^ (disc allowed) o 
4o Search the ADT for the first entry large enough to hold the 

program. Remember the address of the entry in SAVAo 
5o Perform a directory search on the program to be saved. Fail 

if such an entry already exists « 
6* If the directory track is full, call the SUPERSAVE routine to 
attempt to reallocate the directory. SUPERSAVE will perform 
step 7 itself and proceed to step 8. 
7o Insert a new directory entry into the directory. 

8. Update the IDT and ADT. 

9. Copy the user's program to its library area*, 



SUPERSAVE 

The SUPERSAVE rovitine is called by the SAVE and OPEN routines when they 

want to make a directory entry on a trade that is already full. SUPERSAVE 

assumes that the following words are set properly: 

(LTEMP:LTEMP+3) = first 4 words of entry. 

(LTEMP+4) = pointer to DIREC entry for appropriate directory track 

(LTEMP+5) = core address of entry which is to precede the new entry 

(LTEMP+6) = disc address of entry 

(LTEMP+7) = length of entry 

Note that (LTEMP+4) and (LTEMP+5) are set correctly by DLOOKo 

SUPERSAVE attempts to redistribute the directory tracks so that they will 
be as equal in length as possible. This will generally prevent it from 
being called very frequently. The operation is as follows: 

lo Scan through DIREC and determine the total length of all 

directory tracks, and add 8 for the new entry. If all direct- 
ory tracks are full, exit through failure location » 
2« Divide total directory length -by number of available disc 

tracks to determine their new individual lengths. Insert these 
in the table at (DEFNN+l:DEFNN+4) as negativcp 
3. Now redistribute the directory tracks. The basic idea of the 

algorithm is to fill the swap area with as much of the directory 
information as we can, reading from the beginning, and then 
to write out as much as we can, always making sure that when 
writing we don't overlay any portion that hasn't been read yeto 
The following variables arc used: 

(SUP) Kl points to the DIREC entry for track being read 
j (initially DIREC0) • 
LI points teethe DIREC entry for track being written 
(initially DIREC0) . 



K2 = # of words read so far from track Kl (initially 0) 
L2 = # of words written so far on track LI (initially 0) 
P = # of words in core (initially 0) 
PP points to DEFNN entry, telling how many are to be 

written on Llo 
TG = 1 if we have already inserted the new entry « 
4. If L2 =-(PP) , we have completely written track LV so check 

for LI = DIRD3. If it is, we've written all the tracks^ so go 
to step lOp Otherwise, advance LI to the next directory track 
advance PP, set L2 = 0, and repeat this stepo If L2 4 -(PP), 
go to step 5. 
5« If P ^ 5432, we have read as much as we can, so go to step 7o 
If Kl = DIRD4, there is nothing left to read, so go to step 7. 
If K2 = # of words on track Kl, we've read the entire track, 
so advance Kl to the next track, set K2 = 0, and repeat this 
step* Otherwise, compute the number of words we can reado If 
- there is room to read the balance of the track, we will, other- 
wise we will read the maximum number of full sectors possible o 
If this is zero, go to step 7o If it is not zero, read from 
.sector K2/64 into core location LIBU3 + P» Add the number of 
words read to P and to K2o 
6o If TG = 0, determine if we can insert the new entry. This will 
be so if Kl = (LTEMP 4- 4) and (LTEMP + 5) - LIBD < K2. If 
this is not the case, go back to step 5o Otherwise, set TG 
to 1 and insert the new entry in coro. Set P to P + 8 and go 
back to step S* 



7. Write section. Set S = 0, This is the number of words 
writteno 

8« Compute number of words we can write on track L3., First 
set A = - number of words left to write on the track. If 
LI s= Kl, we haven't finished reading everything from track 
lil, so if L2-A > K2 change A to L2-K2, which is the number 
of words we can write without destroying any unread directory 
information o If P-S< -A, we don't have as much in core as 
we are capable of writing, so set A = -C((S-P)r64) x 64), an 
exact number of sectors. 

9o If A = 0, we can't write anything, so if S^j^D slide the re- 
maining P-S words in core up to location LIBUS, set S = and 
P = P-So Then go back to j^tep 4o 

If A^O, write -A words to sector L2 t 64 of track LI. If 
L2 = 0, set the first 4 words of the LI DIREC entry to the 
first 4 words writteno Set L2 to L2-A, S to S-A, and go back 



10 o Set the new directory lengths into DIREC and go back to the 
calling program^ 



f^^^ 



GET 

The GET routine is called by a user to load a program from the library, 

The operation is as follows: 

lo Translate ncime of program from user's inputo If preceded by 

a f^, set up for AOOO search; otherwise set for searching on 

user's ido 
2. Perform directory search » Print 6rror if not found, 
3« Fail if entry is a file (BIT 15 of word 2 of entry is l)o 

Check that the program will fit into the user areao This is 

necessary in case a program which was saved under an old 

version of the system can no longer fit with the current 

version. 
4o Set the date into word 5 of the directory entry and write it 

backo Copy the program nam'e into the user's table, and if 

this is a run-only program, set the run-only bit, unless the 

user is AOOO, 
5c Scratch any previous user program, read in the basic portion 

of his user area, and then append the library program on. 

Set PBPTR correctly, set his CFLAG bit to 0, set SYMTB to 0, 

and exit* 



APPEND 

The APPEND routine is called by a user to append a library program 
onto his current program o The operation is the same as GET for 
steps 1-4, except that the old name is preserved, and then continues 
as follows: 

5. Load user's current program and call DCMPL, Read in the 
program to be appended at the end of the current program. 
60 If the current program is not null, search it for the 

sequence number of the last statement, and insist that it 
be smaller than the sequence number of the first statement 
of the appended program* If o.k, update PBPTR and exit* 



inSLLO 

The HELLO command is used to log a user on to the system. Its oper- 
ation is as follows: 

I0 If the current id is O, there is no user to log off, so go 
to step 2. Otherwise, clear the user's section of FUSS, 
set the PHON entry in his table to (DATIM+1) + PHR, and set 
his PHT bito This will force the user to be disconnected if 
he does not successfully log on. 

2. Read the IDTo If there is no user to be logged off, go to 
step 3o Find the old user's IDT entry and update his total 
time usedo Add an entry to LOGGR to be printed on the system 
console o Set the user's ID word to 0. 

3o Translate the new idcode and search for it in the IDT. If 
not found, print an error message and terminate. Compare 
the password typed to the correct one, and fail if they dis- 
agree* Also, check that the time used to date is less than 
the time allowed. 

4. Add a LOGON entry to LOGGR, and set the starting time into the 
user's table. Also insert the idcode, clear the name, clear 
the program and clear the PHT bit. 

5» Search the directory for a public library HELLO program. If 
not found, or if it is a file, or if it won't fit in core, 
print READY and terminate. 

60 Read in the fixed user area and append ^HELLO. Set PBPTR, 
clear the user's CFLAG, set HFLAG, and clear SYMTB. Change 
the user's status to RUN, set TIMEF, and transfer to BASIC „ * 



BYE 

This command is used to log a user off. It operates as follows: 
!• Set the user's PLEX bit to full duplex« If the user 
id is 0, set his disconnect bit, clear his PHT bit and 
terminate • 
2« Clear the user's FUSS table and read in the IDT. Compute 
the time used and update his IDT entry. Create a LOGOFF 
entry in LOGGR. Clear the user's id entry and output a 
message o Set his PHON entry and set PHT so that he v/ill 
be disconnected in 4 seconds (the time required to print 
the message). Then terminate. 



KILL 

The KILL routine is called by a user to delete a program or a file 
from the library. Files which are being accessed by another user 
are not allowed to be killed. The operation is as follows: 

1. Translate the program or file name and perform a directory 
search. Fail if illegal name or the search fails. 

2. If the entry is a file, search the FUSS table to see if 
any other user has access to the file. If so, print a 
message and terminate. If not, clear the user's section 
of FUSSo 

3* Delete the entry from the directory and adjust DIREC. 

Subtract the program length from the user's IDT entry, and 
restore the space to the ADTo 

4m If a file was killed, read the user's program in and de- 
compile ito This guarantees that any old references to 
the file will dis appear o 



RENUMBER 

The function of RENUMBER is to assign a new set of sequence numbers 
to a user progrcim. The user may specify the sequence number of the 
first statement and the increment between statements. If unspecified, 
these are set to 10. 

There are actually two sets of numbers that must be modified. One set 
is the sequence numbers themselves, each of which occupies the first 
word of its statement. The other is the set of references, v/hich are 
labels in GO TO, GOSUB, RESTORE, and IF statements. Each of these also 
occupies one word. For programs in compiled mode, they are pointers to 
the statement they reference; in decompiled mode they are the actual 
statement number* 

The primary technique used is to change all the references to absolute 
pointers (if in decompiled mode), then to change all the sequence 
nvimbers^ and then (if in decompiled mode) to change the references to 
the new statement numbers o References to nonexistent labels are left 
unchanged o 

Because the process of changing all the references to absolute pointers 
can become quite time consuming (due to the search that must be per- 
formed for each reference) , a table is built in advance essentially 
dividing the program into 32 parts, each containing the Scime number of 
statements. For large programs with many references, this effectively 
cuts the time down by a factor of close to 32. 

The subroutine RENSK is used to scan for references. It maintains twp 
pointers, P and Qo Whenever it is called, it moves P to the next 
reference, and sets Q to point at the statement following the one that 




P is pointing ato It takes advantage of the fact that any references 
within a statement are always the last word or words of the statements 
Before calling RENSK for the first time, Q is set to point at the be- 
ginning of the program, and P is set to Q-1. 

The operation of RENUMBER is as follows: 

lo If null program, terminate immediately e Otherwise, read 

in user program • 
2o Translate and check parameters M and No 
3. Scan through program and make sure that the new sequence 

numbers will not exceed 9999 o 
4o If program is in compiled mode, go to step 7o Otherwise, 
set up a table in ERSEC which divides the program into 32 
partSo The result is that for each I from to 31 

ERSEC [ij = sequence number of first statement in part I, 
ERSEC ll+32l == Absolute address of that statement 
If there are 32K + L statements (0^ L^ 31) in the program, 
ERSEC tlj is the sequence number of statement 
(K + 1) I + 1, if I<; L 
KI + L + 1, if I^L, K> . 
L if I^L, K= 

Set Q = PBUFF, P = Q-1. (PBUFF points to the first state- 
ment) O 
So Call RENSK to find the next statement reference*. If there are- 
none left, go to step 7. Find the largest I for V7hich 
ERSEC \^l} ^ (RENP)o If there is none, the statement referenced 
does not exist, so go to step 6o Otherwise, tosh all statements 
from (ERSEC [l + 32J ) to either (ERSEC 111+33] ) or PBPTR, 



depending upon whctfier l<31 or I = 31. If found, set (RENP) to the locnLion 
of the statement referred to, and repeat this step. Otherwise, go to step 6. 

6. Set (RENP) « (RENP) + lOOOOOg and go back to step 5. 

7. Change the sequence numbers of all statements, according to the M and N 
parameters. If compiled mode, terminate. Otherwise, set Q = PBUFF, P = Q-i, 
and go to step 8. « 



8. Call RENSK to find the next statement reference. If none left, terminate. If 
(RENP)<0, the reference was undefined, so set ( RENP) = (RENP)-]00000g, and 
repeat this step. Otherwise, set RENP « ( (RENP) ) and repeat this step. 



NAME 

The NAME routine is called by a user when he wants to assign a name 

to his progrcUHo The program ncime is placed in his teletype table. 

The operation is as follows: 

lo Get an input charactero If a carriage return change it 

to a blank. If a control character, ignore it and repeat this 
stepo If a ";^", and this is the first character, print an 
error message and terminate o 
2o Add the character to the user's name areao If < 6 characters, 
go back to step 1. Otherwise, restore the RUN-ONLY bit, and 
get one more character* If not a blank, print an error mess- 
age. Then terminate. 




CATALOG 

The CATTVLOG routine prints a list of all progreims and files in the user 

library. The operation is as follows: 

1. Perforin directory search on the program with all nulls. Get 
first directory entry following the one sought. 

2. If the entry does not belong to this user, output a CRLF 
and terminate. Otherwise, output the 6 characters of the 
name one at a time, then a blanlc, then the 4 digits comprising 
the length of the progrcim or file, and then another blank. 

3. If < 6 names have been printed on the line, advance to the 
next directory entry and return to step 2. Otherwise, output 
a carriage return and suspend until the buffer is almost 
empty. Note that during step 2, the user's BHED word was set 
to point to the beginning of the last program name printed. 
This will insure that step 4 will work. 

4» Read the name of the last program printed from the user's 

buffer and perform a directory search. The reason for doing 
this in this way rather than saving a pointer to the directory 
is that during the time CATALOG was suspended, the directory 
may have been changed in any way. Get the first directory 
entry following and go back to step 2. 



LIBRARY 

The LIBRARY routine prints a list of all programs and files in the 

public library* Its operation is identical to that of CATALOG except 

that AOOO is used for directory searches instead of the user's id* 




DELETE 

The DELETE command allows a user to delete a section of his programo 
He can specify two parameters, M and N. M refers to the first line 
to be deleted, N to the lasto If N is not specified, the entire pro- 
gram is deleted, starting at line Mo The operation is as follov/s: 

It Translate and checlc parameters* If N is not specified, set 
it to 9999o 

2« Decompile programo 

3o Locate range of statements to be deleted. 

4« Move portion of program following deleted area up against 
portion preceding o 

5o Reset PBPTR and exito 



TIME 

The TIME command prints the user's console time and total time. The 

operation is as follows: 

lo Print "CONSOLE TIME =" 

2a Read IDTo 

3o Compute console time and print ito 

4, Print "TOTAL TIME=" 

5» Find user's IDT entry o Add the time in there to the console 
time and print it* 

6© Exito 





PROTECT 

The PROTECT command allows user AGOG to protect a program or fileo 
Program protection means that no other user may list or save the 
programo File protection means that no other user may access the 
fileo AOOO files are always protected against other users writing 
on them. The operation is as follows s 
lo Check for AGGO» 

2. Translate and checTc the program or file name. 

3. Perform a directory search on the specified program. Fail 
if not found. 

4o Set the protect bit (BIT 15 of word 1 of the directory entry) , 
write the directory back to the disc, and terminate o 



UNPROTECT 



This is identical to PROTECT except that it clears the protect bit 



OPEN 

The OPEN command is used to open data files • The user must specify 
the filename and file length in sectors (1 to 128) • The operation is 
as follows: 

!• Translate and check the file name and length <> 

2. Check the IDT and ADT to see if a) the user has enough 
disc allocated to him to satisfy the command; and b) there 
is an area on the disc which is large enough to accommodate 
the fileo Save »the location of the ADT entry and its infonn- 
ation, but don't update it until we know that there is room 
in the directory, 

3, Perform a directory search on the file nameo If found, this is 
a duplicate entry, so terminate » Otherwise, if the directory 
track is not full, insert the new entry. If it is full, call 
in SUPERSAVE to restructure the directory and insert the entry. 

4o Update the IDT and ADT appropriately. 

5. Initialize the file So that a -1 (end*-of - file) is at the 

beginning of every sector o Write the file to the disc and 

then terminate » 




LENGTH 

The LENGTH command prints the length of the user's progrcim, as it 
would be if saved. This is only the length of the source area of 
the program, and includes neither the fixed portion nor any of the 
tables used at run time* The length is determined in one of two 
ways s 

1. if the user is in decompiled mode, length = PROG-PBUFFo 
PROG is just a copy of PBPTR, which points to the last 
word +1 of the program. PBUFF points to the first wordo 

2. if the user is in compiled .mode, length " SPTR-PBUFF. It 
is necessary to read in the user's program to obtain SPTR. 




ECHO 

The ECHO command is used to control the computer echo of teletype 
input o Echoing is determined by the user's bit in the word PLEXo 
Bit = implies no echo, 1 implies echo. The user will want echoing 
if and only if his teletype is full duplexo The command format is; 

ECHO-ON for full duplex o 

ECHO-OFF for half, duplex. 



REIK)RT 

The REPORT command prints IDT information on the system console. 
From each IDT entry, the user id, time consumed, and disc consumed 
are printed. The entries are printed three per line. Note that the 
time printed on the console does not include any time for currently 
active users, since these are not added to the IDT until the user logs 
off. The operation of REPORT is as follows: 
!• Print heading and suspend. 

2. Read portion of IDT containing next three IDT entries o 

3. Translate id, time, and disc of next three entries into 
output buffer o If less than three left, only do those. 

4. Print and suspend if necessary, otherwise terminate, 

5. Go back to step 2, 




RESET 

The RESET command modifies the time to date of a user's IDT entry. 

There are 3 cases: 

a) all users set to zero; 
* b) one user set to zero? 

c) one user set to specified amount. 

The operation is as follows: 

1. Read IDT. 

2. Set ID= T = 0. 

3. If no parameters, all users are to be set to zero, so go 
to step 5. 

4. If no time specified, go to step 5» Otherwise, set T - 
specified timeo 

5. If ID = 0, clear word 5 of all IDT entries „ Otherwise, locate 
specified id and set word 5 to T« 

6o Write IDT back to disc and terminate. 



CHANGEID 

n — ■ I III II .III [i I 

The CHANGEID command is used to modify any or all of the parameters 
in an IDT entry. The parameters that can be specified are: password, 
time allowed, disc allowed. The operation is as follov/s: 

1. Translate id specified. Read IDT and locate the specified 
ido Fail if not found. 

2. If password specified, insert into IDT entry. If followed 
by comma, go to step 3, otherwise to step 5o 

3. If time specified, insert into entry. If followed by comma, 
go to step 4, otherwise to step 5. 

4* Insert new disc value. 

5. Write IDT back to disc and terminate. 




DIRECTORY 

The DIRECTORY routine prints a list of all directory entries. The 
entries are printed one per line. The items printed are: id, 
name, date, disc address, length. The operation is as follows: 

1. Print heading and suspend o 

2. Set up parameters for directory search for null program. 

3. Perform directory search. 

4. Get first directory entry following the one sought. If 
pseudo entry, terminate » 

5. If id of entry is different from that of the preceding 
entry, place the ascii representation of the idcode in the 
output buffer. Otherwise, place blanks in the buffer. 
Save the idcode in location 35 of the buffer. 

6. Convert the name, date, disc address, and length into 
the buffer. 

7. Print line and suspend, 

8. Set up parameters for directory search. These can be gotten 
from locations 35, 3,4, and 5 of the buffer. Go to step 3. 




STATUS 

The STATUS routine prints a summary of the various system resources. The only 
noteworthy thing about it is that the subroutine STAPR, v/hirh forces prlntincj of 
a line and suspends, is only called from top level code. This is because any other 
subroutine entry points will be lost by overlays while thi* STATUS routine is suspended 
STAPR fools T355P into thinking it was called from the location v/hlch STAPR was 
actually called from. The operation of STATUS is as follov;, : 



1. Print IDLOC, IDLEN, ADLOC, ADLEN 

2. Print disc addresses and lengths for each of the four directory tracks. 

3. Search the ADT for the first five entries with length 0. These are the 
five system tracks. Print their disc addresses. 

k» Print disc addresses of users O-7. 

5. Print disc addresses of users 8-15. ; 

6. Print select codes for magtape, phones, and discs. 

7. Print TRAX In k lines of 6^ digits each. 

8. Terminate. 





SLEEP 

The SLEEP command is used for system shutdown. It oi^eratcs as 

follows : 

1. Remove all users from the queue and make sure they can't get 
back by: 

a) clearing MPCCM, 

b) setting all status words to -2 

c) setting T35LK to point to MLINK+1 

2. Output the sleep message to all active users, preceded and 
followed by a CRLP. 

3« When all terminals are done outputting (lOTOG = -1), disconnect 
the telephones. 

4. Update the IDT entry for- each active user and create a logoff 
entry in LOGGRa 

5. Clear PUSS to zeroes » 

6« Set all user swap areas at trac3c origin. This corresponds with 

the copy of the system that is on the disc. 
7« Wait for the console to finish any output and then read the 

overlay. 

The SLEEP overlay packs each library track so that the only unused 
area is at the end of the track. It also builds a table at TLTAB, 
which is of length 255„ TLTAB [T] = - length of track T. This is 
used by the magtape dump routine. The operation is as follows? 

8. Read in ADT. Set T = 1. T is the track number. * 

9» If track T is locked or is a system track, or has an ADT entry with lengtf" 

= that of the disc, r ^ ^ 

there are no programs on it, so set TLTAB [Tj = and go to step 

15o 

10. Write the M)T back to disc. Set S = R «=? the disc address <T, 0> . 

Set P = Q » STAB. P and Q point to a table which will serve as 




SLEEP (contd) 

a subdirectory. Each program on track T will cause a two word 
entry to be created, the first of which is the old disc address 
of the program , and the second of which is the new disc address 
of the progrcim following. 
11 • Search the directory for the next program on track T. If none 
left, go to step 12, Otherwise, set MEM [p] = old disc address 
of program, set disc address in directory entry to SLES, P=P+1, 
MEM[p] = SLES = SLES + length in sectors of program, P = P+1, 
and repeat this step. 

12. Read in programs . If Q = P, we have read in all the programs, 
so go to step 13. Otherwise read in MEM [Q + ij -R sectors 
from disc address MEM [q] to core address LIBUS + sector (R) x 
64, set Q = Q+1, R = MEM[Q}, Q = Q + 1, and repeat this step. 

13. Write R-T sectors to disc address T from core address LIBUS, 
set TLTAB [t] = 64 X T-R . 

14. Read in the ADT, and. replace all entries referring to track T 
by either no entries if the track is full, or by one entry 
with values R and # of sectors/track + T-R 

15. Set T=T+1. If T < 256 go back to step 9. 

16. Write the ADT back to the disc, write the' equipment table 

(100-177) to track 0, sector 4, read in the dump routine, turn 
off all the 10 and interrupt system, and jump to the dump. 




NEWID 

The NEWID routine adds an entry to the IDT, The operation 

is as follows: 

1. If the IDT is at full capacity, print an error message 
and terminate. 

2. Read in the IDT. 

3. Translate the parameters. 

4» Search the IDT for the specified id. Fail if found. 

Otherwise insert the new entry in its appropriate position, 
update IDLEN, write the IDT back to disc, and terminate « 





KILLID 

The KILLID routine removes a specified id from the system. The 

operation is as follows: 

1. Get the id. If the id is AOOO, fail. This is because the 

files belonging to AOOO may be accessed by other users, and 

removing them would be almost impossible. 
2o Search the IDT for the specified id. If not found, terminate. 

Otherwise, delete the entry from the IDT and write it back to 

the disc. 

3. If any user with the specified id is currently on the system, 
set the id item of his TTYTABLE to 0, set his status to -2 
and his MPCOM bit to force him to be disconnected, and remove 
him from the queue if he is on it. Also, zero out his section 
of the FUSS table. 

4. Load the overlay section. This section will remove from the 
directory any entries belonging to the user being Xilled, and 
will release the space occupied to the system. 

5o Remove all directory entires belonging to this user, and build 
a table which will be used to patch the ADT. For each directory 
entry, two words are placed in the table, the disc address and 
length of the released area. 

6o Update the ADT^, using the patch table information. 




UNLOCK 

The UNLOCK command is used to restore disc tracks to the system^ 

The operation is as follows: 

!• Interpret parameters, setting P and L to the first and 
last tracks to be unlocked. 

2. Scan the TRAX table to determine the number of tracks 
to be unlocked. Set CN to this number. 

3. Set CN = min ^CN, (5440 + IDLENaM64 + ADLEN)/2} . The 
parenthesized expression is the number of words that can 
be added to the ADT. 

4« Read the ADT into core location LIBUS + 2 CN. 

5. Set MOVED = LIBD, MOVES = LIBD + 2CN. 

6» If track F is unlocked go to step 8, otherwise, unlock 

it by clearing its bit in TRAX. If MOVED = MOVES, we 

can't insert an ADT entry, so go to step 8. 
7« If MEM CmoVES] < F, move 2 words and repeat this step. 

Set MEM tMOVEDj = P, MEM tMOVED -¥ l] = // Sectors/track, MOVED=MOVE[ 

-^ 2« 
8. If fV L, set F = F + 1 and go to step 6. Set ADLEN = 
ADLEN - 2CN. Write the ADT back to disc and terminate. 





LOCK 

The LOCK routine is used to tell the system that certain disc tracks 
are not to be used. Only tracks which are part of the program library 
are lockable, but tracks which contain active files are not. Any pro- 
grams or files on tracks being locked are removed from the system. The 
operation is as follows: 

1. Interpret the parameters and set F and L to the first and last 
tracks to be locked. Check that none of these tracks arc mentioned 
in FUSS, is a directory track, id track, system track, or user 
track. 

2. Delete from the ADT all entries with disc addresses on the tracks 
being locked. 

3. For each track being locked, set its TRAX bit to 1. 

4. Read in the LOCK overlay. The overlay will delete all directory 
entries for programs on the locked tracks, and also update the IDT 
appropriately. To do this, it maintains a table of IDT updates, 
each entry containing an id and a sector count, which is -# of sec- 
tors removed from that id. 

5. Set ID = LIBUS - IDLEN, P = LIBUS + 5440, I = DIRDO. ID is a bound 
on the IDT, P a pointer to the update table, I a pointer to the 
DIREC entry for the directory being scanned. 

6. If P < LIBUS - MEM [l] , we can't read the directory without 
clobbering the update table, so call LOCFX to, remedy the situation. 

7. Read the directory. Set MOVES » MOVED = LIBD, D ^ LIBD - MEri [ij . 
8» If MOVES = D, we* re done with this directory, so go to step 9. 

Otherwise, if the entry pointed to by MOVES is not on a track being 
locked, perform an 8-word move and repeat this step. If it is on 'a 





LOCK (contd) 

track being locked, we want to delete the entry. Set T = id of entry, 
Tl = - sector length of entry, MOVES = MOVES +8. If P< LIBUS + 5440 
and MEM iP] = T, set MEM [P + l] = MEM [P + 1] + Tl, and repeat this 
step. If P = D, set N = MOVED, perform a move of length D - MOVES, 
set D = MOVED, MOVED = MOVES = N. If P = ID, write out all words 
from LIBUS to D-1 to the directory track, call LOCFX, and read the 
stuff back in. Set P = P-2, MEMtPj = T, MEM [p + 1] = Tl, and repeat 
this step. 
9o Set MEM ll] = LIBD - MOVED, write out the new directory track, and 
update direc. If I ?^ DIRD3, set 1=1+7 and go back to step 7. 
10. Call LOCFX and terminate. 

The LOCFX subroutine is used by LOCK. to update the IDT from the update 

table o It operates as follows? 

1» If P « LIBUS -f 5440 then exit immediately. Otherwise, read the 
IDT and set B = LIBUS - IDLEN. 

2* Set B = B - 8. If MEMtB] ./ MEM [pj , repeat this step. Otherwise 
set MEM [B 4- 73 » MEM [B + 7j + MEM[P +iJ,P=P+2. IfP?^ 
LIBUS + 5440 repeat this step. Otherwise, write the IDT back to 
disc and exit. » 






PURGE 

Ullli^fcill illllllli MMIW 

The PURGE routine is used to delete from the library all progreimr. 
or files which have not been referenced since a certain date. The 
operation is as follows: ' 

1. If HELLO progrcim exists, assign it today's date. This is 
because the HELLO routine does not perform this function, 

2. Interpret parameters and set DTto the purge date. Make sure 
that DT ^ today's dateo 

3. Make sure that FUSS is empty. This is to avoid killing any active 
files. 

4o Set ID = - max (LIBUS-IDLEN, LIBUS-ADLEN)-4. This is used to de- 
termine when the update table described below has reached the 
point when the updates must be made. 

5. Set P = LIBUS + 5440, I = DIRDO. P is a pointer to the update 
table • Each entry in the update table contains 3 words : 

a) id 

b) disc address 

c) length in sectors 

6. Read directory . If LIBUS-MEM [l3>P, the directory won't fit, 

so call PURFX to remedy the situation. Then read the directory. 
Set MOVED=MOVES-LIBUS, D = LIBUS-MEM Hi]. 

7o Test next entry. If MOVES = D, we're done with this directory 

tracks so go to step 11. If MEM [MOVES + 5]^DT, we don't want to 
delete the entry, so perform an 8 word move and repeat this step. 

8. Entry deletion . Set T = MEM CMOVES], T1 = MEM [MOVES + 6], 

T2 = (- MEM [moves + 7j+ 63) -r 64, MOVES = MOVES +8. If P-3^D, 
we have room for another update entry, so go to step 9. Otherwise," 
set N = MOVED, perfontP a move of D~MOVES words, set D = MOVED, 
MOVED = MOVES = Nc 



PURGE (contd) 

9. If P + ID^o, we can add a new update and still be able to 

load the IDT and ADT, so go to step 10. Othcrvvise, v/ritc LIBUS 
through D-1 to the disc, call PURFX, and read bacK LIBUS through 
D-1. 

10. Make entry in update table. Set MEM CP-IJ » T2, MEM [P-2j = Tl, 
MEMt P-*>J= T, P = P - 3, and go back to step 7. 

11. End of directory track . Set MEM 1x3 = LIBUS-MOVED, update DIREC 
and write the directory back to the disc. If I ^ DIRD3, set 
1=1+7 and go to step 6. Otherwise, call PURFX once more and 
then terminate. 

The PURFK routine is brought in as an overlay. It oi^erates as 
follows s 

1. Save MOVED and MOVES in M and Ml. 

2. Read the IDT, set B = LIBUS-IDLEN-8 , set PP=P. 

3. If PP=LIBUS+5440, write back the IDT, read in the ADT, and go to 
step 5 • 

4. Search for ID. If MEM fPPj 7^ MEM LbI , set B = B-8 and repeat 
this step. Otherwise, set MEM [B + 73 = MEM [b + 7j - MEmIpP+2} , 
set PP=PP+3, and go back to step 3. 

5. Update ADT . If P = LIBUS -J- 5440, set MOVED = M, MOVES = Ml, 
write the ADT back to disc, set ID = -max(LIBUS~IDLEN,LIBUS- 
ADLEN)-4, and exit. Otherwise, insert into the ADT the entry 
specified by MEM ^P + ll and MEm[p +2], set P = P + 3, and repeat 
this step. 




ROSTER 

The ROSTER routine prints a listing of the id codes of all active 
users. These are obtained from the ID word in the 16 TTYTABIiES. 
The absence of a user is indicated by the word being zero. 




DISC 



The DISC routine Is used to odd discs to the system or to remove discs. It operates 
as follows: 

I, Interpret parometers. 



2. If specified select code is 0, make sure all disc tracks are locked, set 
into the TBL entry, and terminate. 

3. Otherwise, make sure that the TBL entry is 0. 

k. Search TBL and determine the lowest numbered prefix which has not been 

assigned to any other disc with the same select code. Create a TBL entry 
containing the number of sectors/track, the prefix, and the select code. 

5. Unlock the disc tracks by clearing the four words in TRAX corresponding 
to the specified disc. 

6. Insert one entry into the ADT for each disc track. If fewer than 6^ entries 
can be made, some tracks will not be used. 

7. If there are more discs than directory tracks, allocate a new DIREC entry 
of length 0^ and exit. 




MAGTAPE 

The MAGTAPE routine is used to set a select code into the location 

MAGSC. 




PHONES 

The PHONES command is used to specify the disconnect parameters. 
If the select code given is 0, it sets PHSC = and forces the 
scheduler to skip around the disconnect logic » If the select code 
is non zero, it sets PH^C, constructs the LIA and OTA instructions 
in the phone logic, allows the scheduler to enter the phone logic, 
and initializes PI^ to the current state of the disconnect input « 
If a logon time is specified, it multiplies it by 10 and sets it 
into PHRo If none is specified, it uses 120 seconds. The specified 
time can be no greater than 323 in order that the various checking 
algorithms work properly. 
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SUPPLEMENTARY NOTES ON BASIC 

SYNTAX 

The general process of analyzing an input to the language processor 
*8S displayed In the section on flow charts. The annotations in the listing 
explain the actions of the subroutines, while the core map and section on 
internal representation describe the objects/structures bring created or 
manipulated. The BASIC syntax, in conjunction wl th the listing, explains 
the method of Identification and recognition of legitimate BASIC statements 
from the Input string. 

Phase 2 

A. CompI I at ion \ 

The preliminary section of CHPLE prepares for execution of the program 
following a successful compilation.. Null programs require no processing. 
If a sequence number follows the RUN (e.g., RUN - 220) the interpreter's 
program counter Is set to the first statement whose sequence nuribcr equals 
or exceeds the reference, otherwise it Is set to the first stntcfient of the 
user program. If the program is already compiled (as when a program is RUN 
twice without Intervening program modification) PBPTR is set bock to the 
first word following the value table and phase 2 simply reinitializes all of 
the variables to 'undefined'. Otherwise FILTB is set to so PRfiST will not 
terminate compilation by mistaking it for decompilation. 

The symbol table is then built as explained in the li sling (Refer to the 
flow chart for general logic flow and to BASIC Variable Slornoo Allocation for 
a visual example.) During compilation SPTR points to the proqrar.) word being 
processed and VALTB is either -I or a pointer to the < FILLS ^tiitt:icnt> if 
one exists. An error in compilation will cause a call to DCI'^L to restore 
the source form of the program followed by a call to tlif orrc»r routine. If 
after a successful compilation a «Cl^lLES statement) hfi'> l)v.< :: fouiu., BASIC calls 
the system with VALTB pointing to the second word of the st.itci.oni. The system 



analyzes a^FILES statement^ and builds the file loble, filling in the 
first, second, and fourth words of each entry. 

The symbol routine has two entry pointr, : SSYflT is u5;cd for functions 
and simple variables and ASYMT is used for ovray nnd siring variables. Because 
the dimensionality of an array variable may not be known locally (e.g., HAT A * D) 
some symbols may have two entries. If this is the case, the "don't know" entry 
will always be farther down in the table (i.e., hove a higher core address) 
than its dimensioned counterpart. 

B. Value 

VALUE is responsible for detecting deficiencies in the symbol table, 
allocating storage for the values of symbols (i.e., building the value table), 
and initializing the values of all variables. Only the lost of these functions 
Is performed If a program is already compiled when a P»UU command is received. 
The process of building the value table 5s described in the listing. 

Several errors may be encountered while buildincj the value table. The 
occurrence of a null symbol (bit pattern of 0) in the syr.bol table means 
that an array symbol is used in the program, but never in such a way that its 
dimensionality can be determined. If the second word of o function entry is 
zero, no < DEF statement^ for that function appears in the program. Arrays 
of more than 2500 elements are not allowed. For all errors the program is 
decompiled before the call to the error routine. 

C. Decompi 1 at ion 

Programs are decompiled when any error occurs during compilation, 
building of the file table, building of the value table, or v/hen the program 
is to be modified or saved in the user library. Since in the first of these 
only a portion of the program is compiled, the pointer SPTR is used to dctcrnirte 
how much to be decompiled (A fully compiled propra.-i always has SPTR pointing 
to the first word following the program). l\\c process is explained in the 
1 i s t i ng . , 




D. The routine PRNST 

PRNST is used by both CMPLE and DCMPL to scan the program and skip over those 
portions not affected by compiling. One outstanding pccularity should be 
noticed. PRNST assumes responsibility for recognizing a C FILES statement > 
in a program. If a second <FILES statement^ is found during compilation the 
following occurs: 1.) PRNST calls DCMPL 2.) DCMPL calls PRNST 3.) the first 
<riLES statement> is found and treated as if compilation were taking place 
k.) the second <F I LES statcment> is found and DCMPL is called again, but the 
first call set CFLAG[|] « so this call returns immediately and PRNST exits 
to the error routine. 




IH EXECUTION 

A. Main Loop 

Upon completion of the value assignment in phase 2, control transfers to XEC. 
FCORE saves a pointer to the first word following the value table (used in 
repeated RUNS of a program). After printing the program name XEC proceeds to 
Initialize the file table. A 6A-word buffer is allocated for each file and 
pointers to the word following it are placed in words 5 and 6 of the file table 
The disc address of the record in the buffer (word 3) is set to -1 to indicate 
that no record is present. Word 7 is set to 0, indicating that no end-of- 
record/end-of-f i le exit has been specified. If the file is read-only a message 
to this effect is printed, following the program name. 



Following the preparation of files the Initial execution status is set. The 
initial execution stacks are claimed from free Oser space aild pointers are set 
to the first constant of the first <DATA statement^ , if such exists. The 
Internal print position counter (CHRCT) Is set to zero by outputting a carriage 
return. Phase 2 has already set the BASIC program pointer (PRGCT) to the first 
statement to be executed. 



Execution of a statement simulates the execution of an instruction on a 'BASIC 
machine". The sequence number of the statement referenced by PRGCT is saved for 
possible use by the error routine. PRGCT is advanced to reference » 



the foHowing stolcmont. The type of the current statement is used to 
branch to the appropriate routine via a jump table. Individual statement 
routines return to the top of the loop, 

B, Statement execution 

< LET statement^ execut ion consists simply of evaluating the formula, which 
is known to contain at least one assignment operator and to have type 
compatibility (numeric vs. string) by its acceptance by phase 1. 

<IF statement) execution forks on the symbol following the IF. The 
construction 'IF END' causes the following: the file reference is evaluated 
and tested for existence as one of the program's requested files; if a legitimate 
reference, the statement reference follov-^ing the THEN is placed in the 
end-of-file word of the file's table entry, Ifnot 'IF END', the decision 
formula is evaluated and If true the statement reference replaces the value of 
the interpreter's program counter, PRGCT, via the GOTO mechanism, 

<GOTO statement) execution consists of choosing a statement reference 
to replace the program counter. For simple GOTO's this is done trivially; 
for multi-branch GOTO's this Is done by evaluating the index formula and 
choosing the statement reference In the corresponding list position. If the 
Index value lies outside the list of statement references, the program counter 
remains unchanged, 

<GOSUB statement^ execution follows the pattern for the GOTO except that 
after choosing the nev; value for the program counter, the old value is saved 
on the return stack (stack overflov/ generating an error condition), 

<4 FOR statement^ execution opens an active program loop. The for-stack is 
searched for an entry with the same for-variablc; if found, the entry is 
eliminated (i.e., the previous ^FOR statement) wi th this for variable is closed). 
A new entry is set on top of the for-stack (extending the for-stack by six words 
If no entry was eliminated) and a pointer to the for-variable's value entry is 
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put Into v/ord 1. Since the first formula in the FOR conloins an assignment 
operator, the formula evaluator, FORMX, initializes the for-variable when 
It determines the initial value. A reference to the statement following the 
^FOR statemcnt^is put into word 6 of the for-stack entry (the start-of- loop 
address). Words 2 and } save the result of evaluating the limit value formula. 
If a step size formula appears explicitly it is evaluated, otherwise 1.0 is 
takenas the step size. In either case the value of the step size is left in 
words h and 5 of the for-stack entry. The program coui Icr is set to the 
statement following the associated (NEXT statement) and control transfers to the 
^NEXT statement) execution code to compare the initial and limit values (see 
flow chart) . 

<NEXT statement^ execution decides whether to iterate a loop or close it. 
The for-stack is searched for an entry with the same for-variable. If none 
is found the statement is ignored and control passes to the following statement. 
If the entry is found, any entries above it (more recent entries) are eliminated; 
B.e., they are assumed to belong to'nested loops which were not closed by 
exceeding their limit value but exited otherwise. The value of the for-variable 
is then incremented by the st^p size and the new value tested by subtracting 
the limit value and using the sign of the step size to determine v/hether a 
non-negative or non-positive result indicates 'success'. If the result- is 
"success's, the program counter is loaded from word G of the for-stack entry 
(the reference to the statement following the<FOR STATEMriJT^ ) . If the result 
Is not 'success', the for-stack entry is eliminated. At this point the program 
counter already points to the statement following the (IJEXT statement) so exit 
Is simply to the main execution loop. , 

^.RETURN statement) execution merely loads the program counter from the 
top entry of the return stack. An error condition is gorinratcd if the return 
stack is empty, 

<^tNPUT statement) execution assigns values to the input list for both 
INPUT and MAT INPUT. INITF == and HcNT is mcaninolcss v.!. en executing an 
< INPUT statement) ; For MAT INPUT, INITF = -1 and tXll holds the number 
(in 2 's complement) of elements of the current array as yet ur.assigncd values. 



IFCUT holds the ordinal number of the current itrni in the current record 
(Note that I FONT is not cumulative over the enl i ru c;xc>cui ion of a statement 
requesting input unless the request is met entirely by one line from the 
teletype.). 

The general approach in execution is to dcloniine the address and type 
of a variable In the Input list and then atlcnpl lo satisfy it from the 
Input record. When an error occurs In the above proccr,f. , it Is explained 
along with any necessary corrective action and the value assignment is attempted 
again, so that errors in the Input record will not terminate program execution. 
For simple Input If the next variable In the list Is of numeric type its value 
table address Is placed into SBPTR; for array Input the base address of the 
array Is put Into SBPTR. After filling a simple vori.jble tlie next variable 
from the list Is taken and a new address generated; after filling an array 
element SBPTR has been advanced to the next element by the numeric input 
routine so no new address need be calculated. \/hien K.CHT rolls over to zero 
(an array has been filled) control exits to the fl^T IN'PUT code, v/hich may 
return with another array's base address In SDI-TR and ?'Ct;T reset appropriately. 
If the Input record Is empty but the variable Ur.t is not yet exhausted a 
request for additional Input Is made (signified by '??' rather than the 
Initial '?')• SERR Is needed as a flag to indicate if undct /overflow occurred 
while converting the latest numeric input, since the error message will have 
destroyed any additional Information In the input record. \/hen looking for a 
numbers, the Input record Is scanned for the first sign (-»• or -), digit, or 
decimal point, which begins' the number. Any other chari^cJcr?. will be ignored 
except the ", which will generate a recoverable error. 

String input requires fairly complicated analysis of the data transfer. 
if the string variable does not specify the transfer lenfjlh (does not have a 
double subscript), then the next string in the Input record is transferred In 
Its entirety and the logical length of the varltiblc sit appropriately. If the 
next string does not fit, a message Is printed and a nr..- string value requested. 
If the string variable specifies the transfer Idrnh thrri rxnctly that much 
of the next string In the Input record will be ltnnsf(?ned, oither truncated or 
extended by blanks as necessary to achieve the specified lencjti). The 'next strin 
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In the input record begins with the next non-bl«Tnk character or, if it is a 
", the following character, blanks included. The string ends with the 
first " (which is not part of the string) encountered or with the carriage 
return (also not part of the string) if no •' appears. 

Every data Item in the input record must be followed by a comma or 
carriage return and a comma must be followed by another data item. Failure 
to observe the above will generate recoverable errors. INTMP holds the 
type of data being sought, INTHP « for a number or INTHP/' for a string, 
and is used by the error recovery code to prepare for the retry. 

4READ statement^ execution assigns values to variables In the list. 
FDATA is primed to obtain values from either a file or the ^ DATA statement) s, 
depending on the presence or lack of a file reference follov/ing the READ. 
A mismatch in type between the variable and the next data item, or a string 
too long to fit into its designated destination, will generate an error 
and terminate execution. 

^PRINT statement^ execution consists of identifying items in the print 
list and sending the appropriate media equivalent to the teletype or disc 
file. An initial file reference identifies the statement as a file write 
and turns off the end-of-line mode; its absence identifies a teletype write 
and turns on the end-of-line mode. A comma or semicolon turns off the 
end-of-line mode and generates enough blanks to advance to the next field 
of 15 characters;, if a teletype write. A literal string is written as a string 
of characters, less quotes, and turns on the end.-of-l i ne mode if a teletype 
write. An END writes an end-of-file mark on the file; it cannot occur in a 
teletype write. Formulas in the print string are evaluated and the results 
examined. Formulas which are string variables evaluate to their contents, 
which is then treated as a literal string. !f not a stri ng variable but 
within a file write statement, the floating point value of the formula is 
written on the file in its two-word binary representation. If a teletype write, 
floating point values arc converted to an ASCII character string of the decimal 
equivalent. TAB can only occur in a teletype write; the evaluation of the TAB 
itself produces the desired action, so the value returned is throv.n av/ay , along 
with a following comma if^one exists. For a teletype write all formulas 



turn on the end-of- line .mode. If the end-of-linc mode is on after processing 
the last print item, a carriage return-line feed is printed (This can only 
occur in a teletype write.). 

Before writing a quantity BASIC insures that sufficient space is 
available to accommodate it. CHRCT keeps trad; of the current print position 
on the teletype line (0-71). If the character striny sent to the teletype 
would require non-blank characters to be printed past pf»«~ition 71, a 
carriage return-line feed is output first and CHRCT set to 0. If an item 
sent to a file requires more words than remain in the current record, BASIC 
automatically advances to the next record if in serial node or exits to the 
end-of- record code if in record mode. 

^RESTORE statement^ execution resets the pointers to the DATA block. 
Beginning at the statement specified, or at the first statement in the program 
if none is specified, the pointers are set to the first <DATA statement^ 

' ' . ft 

found, or to the out-of-data condition If none is fourui. 

"(END statement) and ^STOP statement) execution tern:! notes the program 
run. Since each requested file has a 6^-word buffer in core, the last record 
written on a file does not exist on the disc in its updated form. Thus END 
and STOP must force the buffer of each read/write file onto Its proper 
disc sector. Following this, the word DONE is sent to tl.c teletype and 
control exits to the scheduler,, 

^MAT statement) execution involves many disparate tasks,' The forms 
of the <HAT statement^ may be classified as array !/0, array assignment, 
array initialization, and the array functions TRN and INV. For conciseness 
In coding, all forms other than array I/O use some common prooram segments. 

Array I/O prepares each array in the list in the san-^ fashion. SBPTR is 
set to the dynamic dimensions of the array (bas.e address -?) and the operator 
lowing the array identifier Is picked up for examination. At this point 




MAT PRINT follov/s a separate path than MAT READ and MAT INPUT. The follaving 
operator Is noted as spacing the elements (comma or end-of'Statemcnt) or packing 
them (semicolon). VCHK examines the array and generates on error if any of 
its elements have value 'undefined'. The dynamic row and column lengths are 
saved in 2*s complement. If the MAT PRINT references a file, the array 
elements are written one by one in rows, each element in its tv/o-word binary 
form. If the MAT PRINT references the teletype, rows arc double spaced and 
the elements within a row arc spaced or packed as noted above, each element in 
Its ASCII decimal form. Both MAT READ and MAT INPUT redimcnsion the array if 
the following operator is a left bracket (i.e., begins a matrix subscript). 
MCNT is set to the number of elements In the array, In 2's complement. 
MAT READ calls FDATA for element values while MAT INPUT transfers to the 
<INPUT STATEMENT^ execution to obtain element values. /1T0 acts as a flag for 
MAT INPUT, differentiating the first call for input from subsequent calls 
and saving the input character following the last element value used from the 
Input record. After completing I/O on an array, a common section of code 
prepares the next array in the list or, if no more remain, terminates the 
statement execution. -MAT INPUT returns to the input code to clean up there, 
MAT PRINT and MAT READ return directly to the main execution loop. 

Array assignment consists of preparing the destination and source arrays 
and executing a loop which assigns the destination array clGnents one by one. 
The general procedure is to assign a jump to the element computation code to 
MOP, an exit address to MEXIT to use after completing the destination array, 
and a count of the elements to MCNT, in 2's complement. The code to compute an 
element returns to MLOPl, ML0P2, or ML0P3 depending on the number of arrays 
involved which require updating of the element address. Each operation checks 
the dimensions of the arrays involved to insure that the operation Is v/ell- 
defined; and all elements of the source matrices are checki'.d lo make sure none 
have value 'undefined'. Matrix multiplication does not use ihc element 
computation loop, instead it uses row and column counters to tell \.'hcn it is 
done and computes destination array elements by inner product":, of the rows 
and columns of Its source matrices. 



Array ini tlalizotion olso uses the clement computation loop. The 
Initialization program first redimcnsions the destination array (if a 
matrix subscript is given) and then chooses the appropriate constant for the 
element values. IDN acts like ZER except that it insists that the destination 
array be 'square* and sets a special counter to choose 1.0 for the value of 
main diagonal elements. 

TRN and INV are handled apart from the other matrix functions. For 
both of these, the elements of the source matrix are checked against the 
'undefined value'. The source and destination matrices are then checked for 
transpositional compatibility. If TRN, then proceed to transfer the columns 
of the source matrix to the rows of the destination matrix. 

8NV uses the Gauss-Jordan algori thm wl th row pivoting. This procedure 
converts a copy of the cource matrix into the identity matrix and converts 
an Identity matrix Into the Inverse by applying the same set of operations 
to both. Since the source matrix is destroyed in the process, it is first 
copied into free user space and the copy treated thereafter as the source. A 
side effect of the copying produces the element of largest absolute value, which 
is used to compute a lower bound on the allov/able magnitude of pivot elements. 
INV then calls IDN to set the destination matrix to an identity matrix, having 
the side effect of checking that the matrix is square. 

Diagonal izat ion of the source matrix and production of the inverse 
now proceeds on a row-by- row basis. The next unreduced column of the source 
is searched for the pivot element (the largest in magnitude). If necessary, 
rows are swapped to put the pivot element on the main diagonal (the correspond- 
ing rows of the destination matrix must also be swapped). If the pivot 
element Is smaller In magnitude than the previously computed lower bound, the 
matrix is too nearly singular to invert and execution is terminated. Other- 
wise, the pivot rows of both matrices are divided through by the pivot element. 
Now all other elements In the pivot column arc eliminated by subtracting the 
appropriate multiple of the pivot row from each of the other rows. Advantage 




is taken of those pivot column elements which are olreody zero ond of the 
fact that elements of the pivot row to the left of the pivot column have 
been set to zero by previous steps. After diagonal Izat ion of the source 
matrix and consequent creation of the inverse, the user space occupied by 
the source copy Is released. 

The other statement types are declarative In nature. Execution of them 
consists solely of skipping over to the statement following. 



NOTES ON THE ERROR ROUTINES 



Errors are handled by routine SERR, reached by a jump through the base page table 
beginning at SERRS. A JSB SERRS + i,l signifies detection of error \^, The 
alternative bases RERRS and WERRS are conveniences to denote subsections of the 
table used for run-time errors and warning-only errors. The actions taken by SERR 
are explained in the listing; but notice that the 'BAD INPUT' error is singled 
out, its processing is completed by the input execution routine upon return from 
SERR. 

Syntax errors detected while in tape mode are handled by accepting error psuedo- 
statements in place of the erroneous statements. Since these psuedo-statcments will 
be replaced by any subsequently received statements with the same line number, 
provision is made in FNDPS, which returns the location of a statement when given 
its sequence number, to decrement the error counter (ERRCT) whenever the statement 
found is an error psuedo-statement (an error psuedo-statement v/ill only be found by 
FNDPS when another statement with the same sequence number is ready to replace It). 
Over/underflows detected during number conversions in syntax mode cause warning 
messages to be issued only after accepting the statement, if it is otherv/ise correct. 
Since no printing can be done while in tape mode, the routine CHOUF suppresses setting 
of the flag and these potential errors are not reported when in tape mode. 
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I BASIC and System 



User Swap Area 
{Ski\0 Words) 



Po i n t c r s 

USE Fixed, first word of 
user swap area. 

PBUFF Fixpd, first word of 
progrom space. 

SBUFA Variable, first word of 

statement being syntaxed. 

PBPTR Variable, first word of 

program space not used by 
previously accepted 
program statements. 

SBPTR Variable, first word 
not viad by statement 
being syntaxed. 

SYNTQ Voriahlf, first word 
of syntax stack. 

SSTAK Variable, last word of 
syntax stack. 

LWAUS Fixed, first word not 
in user swap area. 
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SYHTB - Variable^ first word of symbol table. 

SPTR - Variable, first word not used by symbol table . 

FILTB - Variable, first word of file table. 

VALTB - Variable, first word of symbol value table 

(FILTB = VALTB if no <F!LES statements is in progrom) 

PBPTR - Variable, first word available of user spoco. 

SYMTB and SPTR are not changed after compilation. 

FILTB and VALTB are not changed after allocating value i.toronc 



J<-FILTB 
V VALTB 

>-PBPTR 




FXFf.nnfln (PHASE m) 





USE — > 



System Base Page 



PBUFF-i 



L 



SYMTB~V 



FILTB-); 



VALTB-^r 



r 



9 Words 



Subroutine Entry 
Points fc User 
Variables 



BASIC 
Program 

Symbol Table 

Fi le Table 

Value Table _ 
Fi le Buffers 
Return Stack 



For-Stack 
Temporary Stack 



LV/AUS-4 



37777 



Operator/Operand 
Stack 

Aval 1ab]e 
User Space 



*-FCORE 
<-RTRNQ 
;*-RTNST 
j*-FORQ 

l^FORST 

eTMPST 
^OPTRQ 



BASIC and 
System 



FCORE - Variable, first v/ord not used by 
Phase I I 

RTRNQ ~ Variable, bottom of return stack 

(first word preceding return stack) 

RTNST - Variable, top of return stack 

FORQ - Variable, bottom of for-stack 

(sixth word preceding for-stack) 

FORST - Variable, top of for-stack 

(points to latest 5-word entry) 

TMPST - Variable, top of temporary stack 
(points to latest 2 -word entry) 

OPTRQ - Variable, bottom of operator stack 

OPDST - Variable, top of operand stack. 

PBPTR - Variable, top of operator stack. 



FCORE, RTRNQ, and FORQ are not changed after initiating execution. 

.< 

Entries on the operator and operand stack are one word each and interleave 
(I.e., alternate v/ords belong to one stack). All stacks beyond the return stack 
grow and shrink as needed bo long as user space is available. 



dASIC Internal Representation 

BASIC statements are represented Internally by the sequence number follov/cd 
by the length in words (including the sequence number and length words) followed 
by the statement body. The statement body is composed almost entirely of operator* 
operand pairs which occupy from one to three words each. Null oper«-inds and 
operators are used when necessary to maintain the operator-operand correspondence. 
The operator resides in bits 1^-9 of a word; the operand uses bit 15, bits 8-0, 
and sometimes whole additional words immediately following. 



'Variable' Operands 



I I Operator | ] 



Operator 



Name I 



Operator 



! > 

ame ! 1-3 



Name 



Bits 8-0 are generally divided, 
into two fields as follows: 
a name field (bits 8-A) and 
a type field (bits 3-0). The 
name field holds a value 
between I and 32^ corresponding 
to A-Z (for functions, 
corresponding to FNA through 
FNZ). A type of identifies 
a string variable (e.g. 3,0 
represents C$) . Types I and 2 
Identify array variables of dimensionality one and two respectively (e.g. A, 2 
represents D[","]) while type 3 identifies an arrs^y variable whose dimensionality 
cannot be determined by its immediate context. Type h identifies a simple variable 
with no digit (e.g. I ,A represents A) while types 5 r l6g identify simple variables 
whose names include the digit - 9iq respectively (e.g. 6,7 represents F2). Type 
l7jK N6fiftlfl6§ § p'rogrammcr-def ined function (e*g. 32ft, 17o represents FNZ). 



J Operator i Name 1 ^"16. 
j 0l Operator Name I 17o 



Null Operand 
String Variable : 
Array Variable 
Simple Variable 
Function Variable 



'Constant' Opcrnnds 



Operator 



Name I ^-16 



8 



] 



I 1 I Opera tor j '^^'"^-J^'^iL J 



) I Operator | 



Binary Integer 



Parameter 

Pre-defined Function 

Formal Dimension / 
Branch Address List 



Binary Integer 




— J ^ .... .... 

\ I Operator \ ^ ^ 



Numerical Constant 



A parameter (v/hich can 
only appear inside a 
<DEF statcment> ) differs 
from a simple variable 
only in that bit 15 is 
set. The name of a pre- 
defined function may range, 
in the standard system, 
from 1 to 16« or 2k ^ to 
30g (TAB to TYP or 2ER to 
TRN). A flagged (bit 15 
set) operand of 3 identifies 
either a formal dimension 
in a<DIM statement> (value 
in fol lowing word) or a 
branch address list (one or 
more statement sequence 
numbers in the following 
words). A flagged operand 
of indicates that the 
following two words hold a 
floating-point constant 
(all numerical constants 
within a program are so represented). The operator with internal code 1 is ", which 
signals the start of a string constant. The operand portion of the* word has a value 
from to 72, w, indicating the number of characters in the constant. The string 
follows, two characters per word, and the closing " is not explicitly represented 
Internally. 



High Mantissa 



Low Mant 



Exponent 






1 (") 


"-^^0 



String Constant 



Character 



Character 



The tabic below gives the Internal reprcsentotion of the DASIC operators. Those 
operators which manipulate the formula evaluation stack during execution have 
associated priorities. All numbers are In octal notation. 



BASIC Operators 



CODE 


PRIORITY 


ASCII 


1 

CODE ' 


PRIORITY 


ASCII 


CODE 


ASCII 


! 





(end-of- 
formula) 


26 


5 


< 


5^ 


FOR 


1 


r , j 


II 


27 ; 


5 


ff 


55 


NEXT 


2 


> 


» 


30 * 


5 


«(equal )56 


GOSUB 


3 


} 


, » 


31 




(unui 


>ed)l-7 


RETURN 


^ 




# (file) 


32 




(unused 60 


END 


5 


i 


(unused) 


• 
33 




(unused)6l 


STOP 


6 


• 


(unused) 


3A 




(unus 


;ed)'62 


DATA 


7 




(unused) 


35 




(unu* 


>ed)63 


INPUT 


10 


1 


/ * 


36 


h 


AND 


Gh 


READ 


II 


1 ^ 


•■ 


37 ^ 


3 


OR 


65 


PRINT 


12 


13(1) 




k0 


6 

* 


MIN 


66 


RESTORE 


13 • 


13(1) 




M 


6 


MAX 


67 


MAT 


1^ 


n I 


+ (unary) 


k2 


5 


<> 


70 


FILES 


15 


II 


-(unary) 


A3 


5 


>= 


71 


'IMPLIED' LET 


16 


2 


, (subscript) 


kk 


5 


<= 


72 


(unused) 


17 


2 


"(assignment) 


h5 


11 


NOT 


73 


(unused) 


20 


7 I 


+ 


he 




LET 


7h 


OF 


21 


1 \ 




hi [ 




DIM 


75 


THEN 


22 


10 


•h 


50 




DEF 


76 


TO 


23 


10 


1 


: 51 ; 




REM 


77 


STEP 


2k 


12 


\ 


^ 52 




GOTO 


* 




25 


5 


> 


53 




IF 







^ 



Some examples of BASIC stotcments In their internal form are given below. Note 
that actual function parameter formulas, <DEF statements^ formulas, and subscript 
formulas appearing ln<MAT statements) require end-of-formula operators to signal 
their end whereas most formulas end either with the first operator which does not 
manipulate the formula evaluation stack or with the end of the statement. Note 
also that constants are considered signed only within a < DATA statement) . ASCII 
numbers are decimal, internal numbers are octal in the presentation belov/. 



10 



LET W1 « Y « (B « C) t 3"A[1,J+K] 



12 
21 

lke\ 27' 6 



17; 31 

17' 

I 

' 13 
30 

; 10 

i I 2^ 



3: ^ 



00000A 
22 

,2 

I 16 



11 
12 



'20 j 13 
0^01 
! 1 1 I 



sequence number 
length 

LET W1 
Y 

cs 

( B 

C .■ 
) 

3.0 

'•' A 
[ 1 

+ K ' 
(end-of-formula) 

] 



20 OIH AtSl, C[6,12] 



2^ 






\k 




't? 


1 


1 


12 




3 




5 


11 







2 


1 
3j 2 


12 




!3 



ljl6j j3 

I ' , 
11. I ; 



30 DEF FNC (X) « X + A0 

36 
7 



! 50 3 



1 I 13 30 
0J10' 
I . 17 30 

. I 20' 1! 



17 
k 



■5 



h0 REM ARK 

50 
5 



Ii51|'*0 
0^0522 
0^5^00 



50 GOTO A OF 10, 20, 30 

62 

7 
! 52 I I j ii 



60 DATA -1, "ABC" 




1 i 7^! 13 
12 
2k 
36 

70 MAT READ #K;A[l] 



7h 

n 

l!62| I0 

100000 

000000 

0j2| (0 

0; 1 : b 

• 0^0502 
0J^1A00 



106 
11 

i 67j I 

6Ai ' 
. ^|13^ 

' 3i 1 ; 1 

12 11 ! k 



11 



BASIC Variable Storage AUocntion 



PROGRAM FRAGMENT 



r 



D_EF 

r 

) 






FNC 



SYMBOL TABLE FRAGMENT 



FNC 



D3 



A^-^l 



A[ ) 




VALUE TABLE rRAGMENT 




dimensional i ty 



dimensional i ty 
local ly unknown 



value of 

simple variable 

declared 

dimensions 

dynamic 

dimensions 



active 
elements 



inact ive 



element 



physical leng'th/ 
logical length 



character 
string 



The symbol table consists of two-word entries, one for each unique symbol occurring 
in the user's program. The first word of an entry is the internal representation of 
the symbol as previously described. The second word of the entry is a pointer to the 
value of the symbol. For a programmer-defined function the value Is the defining 
formula in the <DEF statement) . The value of a simple variable is a two-word 
floating point number. The value pointer of an array Is Its base address (i.e. the 
address of its first element); v/hen an array is dynamically redimensloned to occupy 
less than its physically allocated storage, it occupies a contiguous block justified 
to the low core portion of its element space. Since array symbols may not have 
dimensionality locally defined (e.g. MAT A=B) , array symbols may have a "don't knov/" 
entry In the symbol table In addition to the dimensioned entry. Both entries have 
the same Value pointer. The declared and dynamic dimensions occupy the four words 
preceding the element space In the value table. The value of a string is also its 
base address. A string Is a character array ^(packed two elements per word in contrast 
to the two words per element for numerical arrays ). Its physical (declared) length 
and logical (dynamic) length occupy the word immediately preceding its value space. 

The value table Is simply the concatenation of the values for the symbols in the 
program, excepting prog rammer- defined functions. 



FILE TABLE ENTRY 



read-only 
bit 



number of 
records in flic 



disc address of last 
logical record in file 



disc address of record 
in file buffer 



file base disc address 



EOF/EOR exit address 



FILE BUFFER 




64 words 



The file table consists of one 
seven-word entry for each file in 
the ^FILES statement^ . Bit 15 
of the first word Is set If the 
file was busy when requested or is 
a public file (available on a read 
only basis). A 64-word buffer is 
associated with each file entry 
and is accessed through pointers i 
its file entry. An intra-record 
pointer designates the next portio 
of the record to be written or rea 
A fixed pointer to the first word i 
in the buffer acts as a bound on 
the intra-buffer pointer. 



BASIC Run-Time Stacks 



Return Stack 



RTRNQ-*- 



RTNST 



return address 



9 words 



The return stack is of fixed 
length, holding from to 9 
one-word entries at any time. 
An entry is the absolute address 
of the statement following the 
GOSUB which placed the entry on 
the stack. 



For^Stack Entry 



"1 



pointer to value 
of for-variable 



limit 




two- word 
floating point 
numbers 



Program Fragment 



The for-stack is of variable 
length, containing one six-word 
entry for each for- loop which 
is currently active. Since the 
limit value and stop size are 
kept in the entry, they may not 
be changed within the for- loop. 
The value of the for-variable is 
the one kept in the value table, 
so this may be altered by 
statements within the for-loop. 




CFOR statement) 



> succeeding 
statement 



OPERATOR/OPERAND STACK FRAGMENTS 



LET A = B+C'^0 









Temporary 
Stack 




/ A 


OPTRQ -► 


(unused) 




>^ B 




start-of- 
.formula operntor 

*/ c 






OPDST "^ 


^ D 








(unused) 


PBPTR-I^ 


•h 




available user 
space 1 


LWAUS ^ 


. ) 



TMPST 



OPTRQ 
OPDST 



PBPTR 



LWAUS 



floating point ; *"' 
number 



[ 



i t 

I 



t » 



j[unus ed) 



v^B+C'*«D 



start-of- 
— ^ form ula operato r 



(un used! 



aval lable user 



OPDST 



OPTRQ 



<i>>|^ 




TEMPORARY 
STACK 



TEMPORARY 
STACK 



(unused) 4- PBPTR 



All operands (checked words) are addresses (I.e., C represents o pointer to 
the value of the simple variable C). Bits 7 " of an operator cntr" conl.Hn the 
operators identifying code (See 'Basic Operations' Table) while hits IS-B contain 
the operator's priority. Note the alternate-word structure of the staci.s. The 
temporary stack holds intermediate values during the formula evnluai ion. 



BASIC Language Processor Tables 



The two areas of core labelled SBJTB and USER contain the mcchanssm allowing 
different users to exercise different portions of the language processor without 
interference. The language processor makes its subroutine calls to the labels in 
the area beginning with USER. The word following a subroutine entry point is an 
indirect jump through the appropriate address in the area following SBJTB. V/hen 
a user is displaced by the system, his registers are saved at USER and the area of 
core from USER to PBPTR,) inclusive is dumped onto his track of the disc. Thus, 
a complete record of the language processor's status with respect to him Is 
preserved. LThe only things particular to a user which remain when he Is swapped 
out are his own teletype table, teletype buffer, and the bit flags CFLAG, TERR^, 
and TAPEF.J Since the bit flags are modified only in the bit belonging to the active 
user, information belonging to quiescent users is never modified. 

The tables headed by PDFTB, (which must be in base page), SYNTB, XECTB, and 
FOJT are jump tables. The method in the last three cases is to compute a decisi in 
number, add the base address of the table, and transfer through the entry thus 
designated. The pre-defined function table is used by the formula evaluator to 
enter the code for evaluating pre-defined functions. 

The tables headed by QUOTE and MCBOS have several uses. Their entries are 
explained in the listing and their use will be explained in those routines which 
access them. The Error Jump Table (at SERRS) is explained along with the error 
routines. 



^ 



• */« » » « 1 



SYNTAX REQUIREMENTS OF TSB 



LEGEND 

::= "is defined as..." 

I "or" 
< > enclose an element of Time Shared BASIC 



LANGUAGE RULES 

1. Exponents have 1 or 2 digit integers only. 

2. A <parameter> primary appears only in the defining formula of a 
<DEF statement>. 

3. A <sequence number> must lie .between 1 and 9999 inclusive. 

4o An array bound must lie between 1 and 9999 inclusive; a string 
variable bound must lie between 1 and 72 inclusive, 

5, The character string for a <REM statement> may include the 
character ". 

6. An array may not be transposed into itself, nor may it be both 
an operand and the result of a matrix multiplication. 

Note: Parentheses, (), and square brackets, [], arc accepted 
interchangeably by the syntax analyzer. 

Continued on the next page. 
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SYNTAX REQUIREMENTS OF TSB 




<constant> 
<number> 

<decimal number> 
<integer> 
<digit> 

<exponent part> 
<11teral string> 
<character stnng> 
<character> 

<vanable> 

<simple var1able> 

<letter> 

<subscripted vanable> 

<sub11st> 

<str1ng variable> 

<str1ng simple van* able > 

<expression> . 

<conjunction> 

<relat1on> 

<nn"nririax> 

<sum> ■ 

<term> i 

! 

<subterm> 



<number> j +<numb8r> I - <number> I <1 1 teral s tri ng> 

<decinial number>|<dec1nial numberxexponent part> 

<1nteger>|<1nteger>. |<1nteger>.<1nteger>j «<1nteger> 

<d1 gi t> I <i ntegerxdi gi t> 

0|l|2|3|4|5|6j7|8|9 

E<integer>|E+<1nteger>|E-integer (see rule 1) 

"<charaGter str1ng>" 

<character>|<character str1ng><character> 

any ASCII character except null, line feed, return, x-off, 
alt-mode, escai^e, <-, " , and rubout ' . -r 

<simple variable>|<subscripted variable> 

<1 etter> I <1 etterxdi gi t> 

A|BjC|DjEjF|G|H|l|J|K|L|M|N|0|P|Q|R|S|TiU|V|W|Xiy!Z 

<letter>(<sublist>) 

<expression>|<expression>,<expression> 

<string simple variable>| (<sublist>)|<string simple variable 

<letter>$ 

<conjunction>|<expression>OR<conjunction> 

<relation>|<cpnjunction>AND<relation> 

<minmax>|<minmax><relational operator><minmax> 

<sum>j<minmax>MIN<sum>| <minmax>MAX<sum> 

<term>|<sum>+<term>|<sum>-<term> • 

<factor>|<subterm>*<factor>|<subterm>/<factor> . 

<den"\fl>|<signed factor> 
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FOR THE PROFESSIONAL 



SYHTAX REQUIREMENTS OF TSB, continued 



<deniQl> 
<signed factor> 
<factor> 
<pr1mary> 

<re"iat1onal operator> 

<parameter> 

<functiona1> 

<f unction 1dentifier> 
<pre-def1ned function> 
<source string> 
<destination stn'ng> 
<fne reference> 
<fne forniula> 
<record formula> 
<array identifier> 
<sequence nuniber> 
<program statement> 
<BASIC statement> 



<LST statement> 



<leftpart> 
<lf statement> 

<dec1s1on express i on > 

<comparison string 1> 
<comparison string 2> 



<f actor> I NOT<f actor> 

+<f actor> I <- <f actor> 

<primary> I <factor>+<pri ma ry> 

<variab1e>|<number>|<functional>|<param8ter> (rule 2) 
(<expression>) 

<1 etter> 1 <1 etterxdi gi t> 

<function identifier>(<exprcssion>)j 
<pre-defined function>(<cxpression>)| 
LEN (<string simple variablc>) 

FN <1etter> 

SIN|COS|TAN|ATN|EXP|LOG|ABSlSQR!lNT|RNDlSGN|TYP 

<string variable>|<literal string> 

<string variable> 

#<fne formula>|#<file formu1a>,<record formula.> 

<express1on> 

<express1on> 

<letter> 

<integer> (see rule 3) 

<sequence numberxBASIC statcment>carr1age return 

<LET statement>|<IF statGniGnt>!<GOTO statement>| 
<GOSUB statcment>|<RETURN staten:ent>l <FOR statement>| 



<NEXT statement> 
<DATA statGment> 



<END statement>| 
<INPUT statement> 



<STOP statGmant> 

<READ statement> 
<PRINT statement>|<RESTORE stateriiont>| <DIM statement> 
<DEF statenient>|<FILES stateirient>|<REM statement>l 
<MAT statement > 

LET <11eftpart><expression>| 

LET <desti nation string>=<source string>| 

<leftpart><expression>l 

<destination string>=<source str1ng> 

<variable>=|<1eftpart><variablG>= 

IF<decis1on expression>THEN<sequcncc nuirber>l 
IF END #<file formula>TllEN<scquonce number> 

<express1on>| 

<comparison string l><rclat1onal opera tor> * 

<compar1 son string 2> 

<string variable> 

<string variable>|<literal string> 
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SYNTAX REQUIREMENTS OF TSB. continuied 




<GOTO statenient> 

<sequence list> 
<GOSUB statement> 

<RETURN statement> 
<FOR statenient> 

<for var1ab1e> 
<initial va1ue> 
<final va1ue> 
<step s1ze> 
<NEXT statement> 
<STOP statement> 
<END statement> 
<DATA statement> 
<READ statement> 

<vanable list> 
<read van' able > 
<INPUT statement> 
<PRINT statement> 

<type statement> 

<pnnt 1> 

<print 2> 

<pr1nt 3> 

<pnnt express 1on> 

<file write statement> 



<wr1te express1on> 
<RESTORE statement> 



GOTO <sequencc nuniber>| 

GOTO <expression>OF<sequence I1st> 

<sequence number>|<scquGnce list>,<seqiicnce nunt)er> 

60SUB <sequence number>| 

GOSUB <expression>OF <scquence list> 

RETURN 

FOR <for var1able>=<1nitial value>TO<final value>| 
<FOR <for variable>=<initial value>TO<final value> 

STEP<step si2e> 

<simp1e variable> 

<express1on> 

<express1on> 

<express1on> ' 

NEXT<for var1ab1e> 

STOP 

END ■ . 

DATA<constant>|<DATA statemGnt>,<constant> 

READ<variable list>|READ<fne reference>| 
READ<fne reference>;<variable list> 

<read var1ab1e>|<variable list>,<read variable> 

<variable>|<destination string> 

INPUT<var1able list> 

<type statement>|<file v;rite statement>j 
PRINT <file reference> 

<print 1>|<print 2> 

PRINT|<print 2>,|<pr1nt 2>;|<pr1nt 3> 

<pnnt Ixprint expression>|<print 3> 

<type statementxiiteral string> 

<expression>|TAB(<expression>) |<source stn*ng> 

PRINT<fne reference>;<write express ion>| 
<fne v/rite statement>s<write express ion>| 
<file write statement>;<\'/rite express1on>j 
<fne write statement • -literal string>j 
<file write statementxiiteral string> 

<write expression> 

<expression>|END|<sourcc string> 

RESJORE I RESTORE <sequcnce nuir.ber> 
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FOR THE PROFL'SSIONAL 



SYNTAX REQUIREHENTS OF TSB, continued 



<DIM statement> 
<d1inspec> 

<bound> 

<DEF statenient> 
<FILES statement> 
<f11e naine> 
<REM statcment> 
<MAT statement > 

<MAT READ statement> 



<actual array> 




<d1mensions> 




<MAT INPUT statement> 




<MAT PRINT statement> 


• • 


<MAT PRINT 1> 


• • 


<mi PRINT2> 


• • 

• • 



<MAT initialization. 

statement>:: 



DIM<dimspec> I <DIM statement>, <d1mspec> 

<array identifier>(<bound>)| 

<array identifier>(<bound>,<bound>) I 

<stnng simple variable>(<bound>) 

<integer> (sea rule 4) 

DEF<f unction identifier>(<parameter>)=<expression> 

FILES<file name>|<FILES statement>,<file nani9> 

a string of 1 to 6 printing characters 

REM<character string> (see rule 5) 

<MAT READ statement>i<MAT INPUT statement>| 

<MAT PRINT stateni9nt>|<MAT initialization statement> 

<MAT assignment statement> 

MAT READ<actual array>| 

MAT READ<file reference>; <actual array>| 

<MAT READ statement>,<actual array> 

<array identifier>|<array identifier>(<dimensions>) 

<expression5>j<expression>,<expression> 

MAT INPUT <actual array>| 

<MAT INPUT statement>,<actual array> 

<MAT PRINT 1>|<MAT PRINT 2> 

MAT PRINTorray identifier>| 

MAT PRINT<file reference>;<array identifier>| 

<MAT PRINT 2><array identifier> 

<MAT PRINT l>,j<MAT PRINT 1>; 

MAT<array identifier>=<initialization function>| 
MAT<array identifier>=<initialization function> 

(<dimensions>) 



<1nitialization function>::= ZERjCON|IDN 

<MAT assignment 

statement> Crule 6) ,:=> 



<i7iat operator> 



MAT<array identifier>=<array identifier>| 

MAT<array identifier>=<array identifierxmat operato^> 

<array identifier>| 

MAT<array identifier>=INVC<array identifier>) 

MAT<array identifier>=TRN(<array identifier>)l 

MAT<array identifier>«(<expression>)*<array identifier> 

+ 1-1* 
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